home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 01 - 1984 & 1985 / 01.12 Nov 85.sit / 01.12 Nov 85 / basic / EjectLib Folder 1-12 / Eject.asm next >
MacBinary  |  1985-10-09  |  2.3 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Wed Oct 9 16:14:31 1985, modified Wed Oct 9 16:14:31 1985, creator Macintosh Edit, type ASCII, 1220 bytes "Eject.asm" , at 0x544 860 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 45 6a 65 63 74 2e | 61 73 6d 00 00 00 00 00 |..Eject.|asm.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 04 c4 00 | 00 03 5c 99 d0 8d 27 99 |........|..\...'.|
|00000060| d0 8d 27 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f3 af 00 00 |........|........|
|00000080| 3b 20 42 41 53 49 43 20 | 45 6a 65 63 74 20 4c 69 |; BASIC |Eject Li|
|00000090| 62 72 61 72 79 20 53 6f | 75 72 63 65 20 43 6f 64 |brary So|urce Cod|
|000000a0| 65 0d 3b 20 42 79 20 44 | 61 76 65 20 4b 65 6c 6c |e.; By D|ave Kell|
|000000b0| 79 0d 3b 20 4d 61 63 54 | 75 74 6f 72 20 31 39 38 |y.; MacT|utor 198|
|000000c0| 35 0d 0d 3b 53 79 6e 6f | 70 73 69 73 3a 0d 3b 09 |5..;Syno|psis:.;.|
|000000d0| 43 41 4c 4c 20 45 6a 65 | 63 74 20 28 20 56 6f 6c |CALL Eje|ct ( Vol|
|000000e0| 52 65 66 4e 75 6d 20 29 | 0d 3b 4f 75 74 70 75 74 |RefNum )|.;Output|
|000000f0| 3a 0d 3b 09 54 68 65 20 | 73 70 65 63 69 66 69 65 |:.;.The |specifie|
|00000100| 64 20 64 69 73 6b 20 69 | 73 20 65 6a 65 63 74 65 |d disk i|s ejecte|
|00000110| 64 20 28 6e 6f 74 20 64 | 69 73 6d 6f 75 6e 74 65 |d (not d|ismounte|
|00000120| 64 29 20 66 72 6f 6d 0d | 3b 09 74 68 65 20 73 65 |d) from.|;.the se|
|00000130| 6c 65 63 74 65 64 20 64 | 72 69 76 65 20 77 68 65 |lected d|rive whe|
|00000140| 72 65 20 56 6f 6c 52 65 | 66 4e 75 6d 20 6d 61 79 |re VolRe|fNum may|
|00000150| 20 62 65 20 30 20 66 6f | 72 20 74 68 65 0d 3b 09 | be 0 fo|r the.;.|
|00000160| 64 65 66 61 75 6c 74 20 | 64 72 69 76 65 2c 20 31 |default |drive, 1|
|00000170| 20 66 6f 72 20 74 68 65 | 20 69 6e 74 65 72 6e 61 | for the| interna|
|00000180| 6c 20 64 72 69 76 65 2c | 20 32 20 66 6f 72 20 74 |l drive,| 2 for t|
|00000190| 68 65 0d 3b 09 65 78 74 | 65 72 6e 61 6c 20 64 72 |he.;.ext|ernal dr|
|000001a0| 69 76 65 2e 0d 0d 47 65 | 74 4e 65 78 74 4c 69 62 |ive...Ge|tNextLib|
|000001b0| 41 72 67 09 45 51 55 09 | 24 32 41 09 3b 42 61 73 |Arg.EQU.|$2A.;Bas|
|000001c0| 69 63 20 6c 69 62 72 61 | 72 79 20 6f 66 66 73 65 |ic libra|ry offse|
|000001d0| 74 20 66 72 6f 6d 20 41 | 35 0d 49 6e 74 65 67 65 |t from A|5.Intege|
|000001e0| 72 41 72 67 09 45 51 55 | 09 24 33 32 09 3b 42 61 |rArg.EQU|.$32.;Ba|
|000001f0| 73 69 63 20 6c 69 62 72 | 61 72 79 20 6f 66 66 73 |sic libr|ary offs|
|00000200| 65 74 20 66 72 6f 6d 20 | 41 35 0d 0d 42 61 73 69 |et from |A5..Basi|
|00000210| 63 45 72 72 6f 72 09 45 | 51 55 09 24 34 32 09 3b |cError.E|QU.$42.;|
|00000220| 72 65 74 75 72 6e 20 65 | 72 72 6f 72 20 63 6f 64 |return e|rror cod|
|00000230| 65 0d 2e 54 52 41 50 09 | 09 5f 45 6a 65 63 74 09 |e..TRAP.|._Eject.|
|00000240| 24 41 30 30 30 2b 32 33 | 09 3b 20 74 72 61 70 20 |$A000+23|.; trap |
|00000250| 74 6f 20 65 6a 65 63 74 | 20 61 20 64 69 73 6b 0d |to eject| a disk.|
|00000260| 0d 45 6a 65 63 74 64 69 | 73 6b 3a 0d 09 42 53 52 |.Ejectdi|sk:..BSR|
|00000270| 09 47 65 74 49 6e 74 65 | 67 65 72 56 61 72 09 3b |.GetInte|gerVar.;|
|00000280| 69 6e 74 65 67 65 72 20 | 61 72 67 20 69 6e 20 5b |integer |arg in [|
|00000290| 64 33 3a 77 5d 0d 09 43 | 4d 50 2e 57 09 23 30 2c |d3:w]..C|MP.W.#0,|
|000002a0| 64 33 0d 09 42 45 51 09 | 44 6f 69 74 09 09 3b 62 |d3..BEQ.|Doit..;b|
|000002b0| 72 61 6e 63 68 20 69 66 | 20 6f 6e 20 30 20 28 64 |ranch if| on 0 (d|
|000002c0| 65 66 61 75 6c 74 20 64 | 72 69 76 65 29 0d 09 43 |efault d|rive)..C|
|000002d0| 4d 50 2e 57 09 23 31 2c | 64 33 0d 09 42 45 51 09 |MP.W.#1,|d3..BEQ.|
|000002e0| 44 6f 69 74 09 09 3b 62 | 72 61 6e 63 68 20 69 66 |Doit..;b|ranch if|
|000002f0| 20 6f 6e 20 31 20 28 69 | 6e 74 65 72 6e 61 6c 20 | on 1 (i|nternal |
|00000300| 64 72 69 76 65 29 0d 09 | 43 4d 50 2e 57 09 23 32 |drive)..|CMP.W.#2|
|00000310| 2c 64 33 0d 09 42 45 51 | 09 44 6f 69 74 09 09 3b |,d3..BEQ|.Doit..;|
|00000320| 62 72 61 6e 63 68 20 69 | 66 20 6f 6e 20 32 20 28 |branch i|f on 2 (|
|00000330| 65 78 74 65 72 6e 61 6c | 20 64 72 69 76 65 29 0d |external| drive).|
|00000340| 55 6e 6b 6e 6f 77 6e 56 | 6f 6c 3a 0d 09 4d 4f 56 |UnknownV|ol:..MOV|
|00000350| 45 51 09 23 37 34 2c 64 | 32 09 09 3b 55 6e 6b 6e |EQ.#74,d|2..;Unkn|
|00000360| 6f 77 6e 20 56 6f 6c 75 | 6d 65 20 65 72 72 6f 72 |own Volu|me error|
|00000370| 0d 09 4a 53 52 09 42 61 | 73 69 63 45 72 72 6f 72 |..JSR.Ba|sicError|
|00000380| 28 61 35 29 0d 09 0d 44 | 6f 69 74 3a 09 4c 45 41 |(a5)...D|oit:.LEA|
|00000390| 09 50 61 72 61 6d 42 6c | 6f 63 6b 2c 61 30 09 3b |.ParamBl|ock,a0.;|
|000003a0| 67 65 74 20 70 6f 69 6e | 74 65 72 0d 09 4d 4f 56 |get poin|ter..MOV|
|000003b0| 45 2e 57 09 64 33 2c 32 | 32 28 61 30 29 09 3b 6d |E.W.d3,2|2(a0).;m|
|000003c0| 6f 76 65 20 64 72 69 76 | 65 20 23 20 74 6f 20 69 |ove driv|e # to i|
|000003d0| 6f 56 52 65 66 4e 75 6d | 20 70 61 72 6d 0d 09 5f |oVRefNum| parm.._|
|000003e0| 45 6a 65 63 74 09 0d 09 | 52 54 53 09 0d 47 65 74 |Eject...|RTS..Get|
|000003f0| 49 6e 74 65 67 65 72 56 | 61 72 3a 0d 09 4a 53 52 |IntegerV|ar:..JSR|
|00000400| 09 47 65 74 4e 65 78 74 | 4c 69 62 41 72 67 28 61 |.GetNext|LibArg(a|
|00000410| 35 29 09 3b 47 65 74 20 | 74 68 65 20 6e 65 78 74 |5).;Get |the next|
|00000420| 20 61 72 67 75 6d 65 6e | 74 0d 09 4a 53 52 09 49 | argumen|t..JSR.I|
|00000430| 6e 74 65 67 65 72 41 72 | 67 28 61 35 29 09 3b 5b |ntegerAr|g(a5).;[|
|00000440| 64 33 3a 77 5d 20 3d 20 | 69 6e 74 65 67 65 72 20 |d3:w] = |integer |
|00000450| 28 65 72 72 6f 72 20 69 | 66 20 61 72 67 0d 09 09 |(error i|f arg...|
|00000460| 09 09 3b 63 61 6e 27 74 | 20 62 65 20 66 6f 72 63 |..;can't| be forc|
|00000470| 65 64 20 69 6e 74 6f 20 | 61 6e 20 69 6e 74 65 67 |ed into |an integ|
|00000480| 65 72 0d 09 52 54 53 09 | 09 0d 50 61 72 61 6d 42 |er..RTS.|..ParamB|
|00000490| 6c 6f 63 6b 3a 0d 09 44 | 43 2e 4c 09 30 09 09 3b |lock:..D|C.L.0..;|
|000004a0| 69 6f 4c 69 6e 6b 70 74 | 72 2e 0d 09 44 43 2e 57 |ioLinkpt|r...DC.W|
|000004b0| 09 30 09 09 3b 69 6f 54 | 79 70 65 0d 09 44 43 2e |.0..;ioT|ype..DC.|
|000004c0| 57 09 30 09 09 3b 69 6f | 54 72 61 70 0d 09 44 43 |W.0..;io|Trap..DC|
|000004d0| 2e 4c 09 30 09 09 3b 69 | 6f 43 6d 64 41 64 64 72 |.L.0..;i|oCmdAddr|
|000004e0| 0d 09 44 43 2e 4c 09 30 | 09 09 3b 69 6f 43 6f 6d |..DC.L.0|..;ioCom|
|000004f0| 70 6c 65 74 69 6f 6e 70 | 74 72 2e 0d 09 44 43 2e |pletionp|tr...DC.|
|00000500| 57 09 30 09 09 3b 69 6f | 52 65 73 75 6c 74 0d 09 |W.0..;io|Result..|
|00000510| 44 43 2e 4c 09 30 09 09 | 3b 69 6f 46 69 6c 65 4e |DC.L.0..|;ioFileN|
|00000520| 61 6d 65 70 74 72 2e 0d | 09 44 43 2e 57 09 30 09 |ameptr..|.DC.W.0.|
|00000530| 09 3b 69 6f 44 72 76 4e | 75 6d 0d 0d 09 0d 09 45 |.;ioDrvN|um.....E|
|00000540| 4e 44 0d 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ND......|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 02 46 |........|.......F|
|00000590| 4e 5e 58 8f 4e 75 53 74 | 72 69 6e 67 20 4f 76 65 |N^X.NuSt|ring Ove|
|000005a0| 72 66 6c 6f 77 00 49 6c | 6c 65 67 61 6c 20 4e 75 |rflow.Il|legal Nu|
|000005b0| 09 45 6a 65 63 74 2e 61 | 73 6d 02 00 00 00 54 45 |.Eject.a|sm....TE|
|000005c0| 58 54 45 44 49 54 01 00 | 00 5d 00 49 00 00 00 01 |XTEDIT..|.].I....|
|000005d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 5d 00 49 |..TEXTED|IT...].I|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 99 97 ff 22 00 00 | 04 c4 00 00 03 5c 4e ba |....."..|.....\N.|
|00000600| f8 b6 4a ae ff f8 67 00 | 00 2e 20 2e ff f8 4e ba |..J...g.|.. ...N.|
|00000610| 09 6c 20 3c 00 00 00 19 | 22 3c 00 00 00 32 24 3c |.l <....|"<...2$<|
|00000620| 00 00 01 c2 26 3c 00 00 | 00 fa 28 08 42 85 4e ba |....&<..|..(.B.N.|
|00000630| f4 66 2b 48 fe 7a 2b 7c | ff ff ff ff fe 7e 1b 7c |.f+H.z+||.....~.||
|00000640| 00 01 fe 61 3b 7c ff ff | fe 6a 4e ba e6 06 20 3c |...a;|..|.jN... <|
|00000650| ff ff ff ff 4e ba f7 50 | 4e 5e 58 8f 4e 75 42 a7 |....N..P|N^X.NuB.|
|00000660| 4e 56 ff fc 43 ed fe 6a | d2 c0 d2 c0 4a 51 6a 24 |NV..C..j|....JQj$|
|00000670| 2f 09 45 fa e6 52 74 02 | 4e ba 01 5a 67 0c 48 e7 |/.E..Rt.|N..Zg.H.|
|00000680| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 2e 00 00 |.......M|onaco...|
|00000690| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000006a0| 00 16 00 00 02 46 00 00 | cc 1c 00 b6 00 00 00 1c |.....F..|........|
|000006b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000006c0| 00 00 00 1e 03 eb 00 00 | 00 00 00 00 00 00 df e0 |........|........|
|000006d0| 03 ec 01 00 00 00 00 0e | 00 00 df e8 ff fb 42 4a |........|......BJ|
|000006e0| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|000006f0| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000700| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00000710| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000720| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000730| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000740| 00 40 0b 94 00 40 0b bc | 00 40 0b ec 00 40 01 c0 |.@...@..|.@...@..|
|00000750| 00 40 01 c0 00 40 01 c0 | 00 40 01 c0 00 00 fb a6 |.@...@..|.@......|
|00000760| 00 00 f0 0e 00 00 fa 9a | 00 01 06 3c 00 00 f8 e8 |........|...<....|
|00000770| 00 40 01 be 00 00 fa ae | 00 01 12 ae 00 00 f3 20 |.@......|....... |
|00000780| 00 01 02 10 00 40 01 be | 00 40 01 be 00 40 01 be |.....@..|.@...@..|
|00000790| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000007a0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000007b0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000007c0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000007d0| 00 40 01 be 00 40 01 be | 00 40 01 be ff fb 42 4a |.@...@..|.@....BJ|
|000007e0| ff ff ff ff 00 40 01 aa | 00 40 01 ac 00 40 01 ae |.....@..|.@...@..|
|000007f0| 00 40 01 b0 00 40 01 b2 | 00 40 01 b4 00 40 01 b6 |.@...@..|.@...@..|
|00000800| 00 40 01 b8 00 40 10 18 | 00 40 01 bc 00 40 01 be |.@...@..|.@...@..|
|00000810| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000820| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000830| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|00000840| 00 40 0b 94 00 40 0b bc | 00 40 0b ec 00 40 01 c0 |.@...@..|.@...@..|
|00000850| 00 40 01 c0 00 40 01 c0 | 00 40 01 c0 00 00 fb a6 |.@...@..|.@......|
|00000860| 00 00 f0 0e 00 00 fa 9a | 00 01 06 3c 00 00 f8 e8 |........|...<....|
|00000870| 00 40 01 be 00 00 fa ae | 00 01 12 ae 00 00 f3 20 |.@......|....... |
|00000880| 00 01 02 10 00 40 01 be | 00 40 01 be 00 40 01 be |.....@..|.@...@..|
|00000890| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000008a0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000008b0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000008c0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 40 01 be |.@...@..|.@...@..|
|000008d0| 00 40 01 be 00 40 01 be | 00 40 01 be 00 00 00 00 |.@...@..|.@......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+